PC Answers 1995 December/PC Answers December 1995 (disc errors).iso/mxc/intro.dir/00005_Script_MS for Intro

Text File | 1995-05-04 | 5KB | 177 lines

global fixPal, myLine, auto, ok, gSliderBar, fullMoov, csn, lem, palName, bd, gAudBlrb
global tpal, myLine2, gExtraVid, gDirMovie, gmyLineKeep, gBackColor, gForeColor, profileVid
global gVolume, gFirstTimeIn

on startMovie
  if the machineType < 256 then
    openXlib "XPALETTE"
    set fixPal = fixPalette(mNew,the stageleft,the stagetop,the stageright,the stagebottom)
  else
    openXlib "XPALETTE.dll"
    set fixPal = xPalette(mNew)
  end if
  if myLine <> 1 then set the controller of cast 101 to false
  if myLine <> 1 then set the video of cast 101 to false
  set auto = 0
  set ok = 3
  set myLine = 1
  set myLine2 = 1
  set gmyLineKeep = 1
  set profileVid = 0
  put 201 into tpal
  put the duration of cast 101 into fullMoov
  set gExtraVid = 1    --NEW VAR FOR EXTRA VIDEO SEGMENTS OUTSIDE OF ASSET LIST
  set csn = 6
  cursor 0
end

on buttonsUp
  set the castNum of sprite 8 to 27
  set the castNum of sprite 11 to 51
  set the castNum of sprite 12 to 52
  set the castNum of sprite 13 to 53
  set the castNum of sprite 14 to 54
  set the castNum of sprite 15 to 55
  set the castNum of sprite 16 to 56
  set the castNum of sprite (myLine + 10) to (myLine + 60)
  updateStage
end

on setVid
  if myLine = -1 then exit
  if myLine2 = myLine then exit
  if myLine >= 1 then
    set the castNum of sprite 24 to 26
    updateStage
  end if
  set the locV of sprite 3 to -500
  set the locV of sprite 4 to -500
  set the locV of sprite 5 to -500
  set the locV of sprite 6 to -500
  set the locV of sprite 7 to -500
  blankBut
  updateStage
  set the castNum of sprite 24 to myLine + 100
  put the duration of cast (myLine + 100) into fullMoov
  put myLine + 200 into palName
  puppetPalette palName
  patchPal
  put myLine into myLine2
  -- THE NEXT 5 LINES MAY CHANGE FROM SECTION TO SECTION
  set the locV of sprite 3 to 40
  set the locV of sprite 4 to 74
  set the locV of sprite 5 to 115
  set the locV of sprite 6 to 155
  set the locV of sprite 7 to 191
  set the video of cast (myLine + 100) to true
  set the controller of cast (myLine + 100) to gSliderBar
  updateStage
  set the volume of sprite 24 to gVolume
  cursor 0
end

on autoPlay
  put the duration of cast (myLine + 100) into fullMoov
  set the castNum of sprite 7 to 35
  updateStage
  set auto to 1
end

on check
  global myLine, auto, csn, gExtraVid, fullMoov

  if myLine > (csn + gExtraVid) then exit
  if the movieTime of sprite 24 > 0 and the movieTime of sprite 24 <> fullMoov then exit
  if auto = 0 and the movieTime of sprite 24 = fullMoov then
    if myLine = (csn + gExtraVid) then
      set the movieTime of sprite 24 to 0
      exit
    end if
  end if
  if auto = 1 and the movieRate of sprite 24 = 0 then
    if the movieTime of sprite 24 = fullMoov then
      if myLine = csn then
        set auto = 0
        set myLine = 1
        set the castNum of sprite 7 to 25
        buttonsUp
        exit
      else
        set myLine to myLine + 1
        buttonsUp
      end if
    else
      if the movieTime of sprite 24 = 0 and auto = 1 then set the movieRate of sprite 24 = 1
      else
        set the movieRate of sprite 24 = 0
      end if
    end if
  end if
end

on blankBut
  global gAudBlrb, auto

  if myLine = 1 then
    set the castNum of sprite 4 to 30
    set the castNum of sprite 6 to 24
    if auto = 0 then
      set the castNum of sprite 7 to 25
    else set the castNum of sprite 7 to 35
  else
    if myLine > 1 and myLine < csn  then
      set the castNum of sprite 4 to 22
      set the castNum of sprite 6 to 24
      if auto = 0 then
        set the castNum of sprite 7 to 25
      else set the castNum of sprite 7 to 35
    else
      if myLine = csn then  -- ON THE LAST ONE
        set the castNum of sprite 4 to 22
        set the castNum of sprite 6 to 40
        if auto = 0 then
          set the castNum of sprite 7 to 25
        else set the castNum of sprite 7 to 35
      else
        if myLine = (csn + gExtraVid) then
          set the castNum of sprite 4 to 30
          set the castNum of sprite 6 to 40
          set the castNum of sprite 7 to 50
        else
          if gAudBlrb = 1 then
            set the castNum of sprite 4 to 30
            set the castNum of sprite 6 to 40
            set the castNum of sprite 7 to 50
          end if
        end if
      end if
    end if
  end if
end

-- NOT PRESENTLY BEING USED
on flushMe
  if the machineType = 256 then
    OpenXlib "GLOBMEM"
    Set OBJ = GLOBMEM(mNew)
    OBJ(mFreeHandles, 8192)
    OBJ(mFreeHandles, 8192)
    OBJ(mFreeHandles, 8192)
    OBJ(mDispose)
  end if
end

on patchPal
  fixPal(mPatchIt)
end

on stopMovie
  if the machineType < 256 then
    fixPal(mDispose)
    closeXlib "XPALETTE"
  else
    fixPal(mDispose)
    closeXlib "XPALETTE.dll"
  end if
end